home *** CD-ROM | disk | FTP | other *** search
Text File | 1994-09-08 | 1.3 KB | 30 lines | [TEXT/cSSv] |
- #
- # commsService 2.0 Service Definition File.
- #
- Name=James Cook University
- Description=Provides access to JAMES COOK UNIVERSITY, TOWNSVILLE
-
- TimeOut=0
- BreakEnabled=No
- PagesToScroll=10
- ConnectionTool=TGE TCP Tool
- ConnectionTokens=HostName JCULIB.JCU.EDU.AU PortNumber 23 ConnectionType TELNET TelnetBinaryMode FALSE TerminalType VT100
- ConnectionMenu=Yes
- TerminalTool=VT102 Tool
- TerminalTokens=FontSize 9 Width 80 Cursor Underline Online True LocalEcho False AutoRepeat True RepeatControls False AutoWrap False NewLine False Scroll Jump ShowControls False SwapBackspaceDelete False TerminalMode ANSI/VT102 ShowStatusBar False ShowTabRuler False InverseVideo False InsertChar False OriginAtMargin False KeyClick False CursorKey ANSI Keypad Numeric AnswerBack "" KeyboardLocked False ActiveCharSet G0 NRCSet USASCII G0 USASCII G1 USASCII G2 USASCII G3 USASCII
- TerminalMenu=No
- ServiceScripts=on LoginToService
- Global ActiveService, FoundString
- if ExpectFromService(ActiveService, 20, true, false, "login:") then
- if FoundString > 0 then
- if SendToService(ActiveService, "opac" & return, "") then
- if ExpectFromService(ActiveService, 20, true, true, "W E L C O M E T O T R O P I C A T") then
- if FoundString = 1 then return true
- end if
- end if
- end if
- end if
- return false
- end LoginToService
-
-